home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Prog / U-Z / Uu**code.cpt / uu engine ƒ / uuencode_c / encode.c < prev   
MacBinary  |  1991-06-15  |  3.3 KB  |  [TEXT/KAHL]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sat Jun 15 15:44:27 1991, modified Sat Jun 15 15:44:27 1991, creator Think C, type ASCII, 2804 bytes "encode.c" , at 0xb74 348 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[KAHL]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 65 6e 63 6f 64 65 | 2e 63 00 00 00 00 00 00 |..encode|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 0a f4 00 | 00 01 5c a4 80 1e 9b a4 |........|..\.....|
|00000060| 80 1e 9b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 15 e3 00 00 |........|........|
|00000080| 2f 2a 20 0d 09 52 45 41 | 4c 20 53 69 6d 70 6c 65 |/* ..REA|L Simple|
|00000090| 20 55 45 4e 47 20 53 61 | 6d 70 6c 65 20 41 70 70 | UENG Sa|mple App|
|000000a0| 0d 09 57 72 69 74 74 65 | 6e 20 62 79 20 4c 65 6f |..Writte|n by Leo|
|000000b0| 6e 61 72 64 20 52 6f 73 | 65 6e 74 68 6f 6c 0d 09 |nard Ros|enthol..|
|000000c0| 36 2f 31 2f 39 31 0d 09 | 0d 09 44 6f 6e 27 74 20 |6/1/91..|..Don't |
|000000d0| 66 6f 72 67 65 74 20 74 | 6f 20 63 6f 70 79 20 74 |forget t|o copy t|
|000000e0| 68 65 20 75 75 2a 2a 63 | 6f 64 65 20 72 65 73 6f |he uu**c|ode reso|
|000000f0| 75 72 63 65 20 6f 76 65 | 72 20 61 6e 64 20 72 65 |urce ove|r and re|
|00000100| 6e 61 6d 65 20 69 74 20 | 65 6e 63 6f 64 65 2e b9 |name it |encode..|
|00000110| 2e 72 73 72 63 2e 0d 2a | 2f 0d 0d 23 69 6e 63 6c |.rsrc..*|/..#incl|
|00000120| 75 64 65 20 22 55 55 47 | 6c 75 65 2e 68 22 0d 0d |ude "UUG|lue.h"..|
|00000130| 2f 2a 20 50 72 6f 74 6f | 74 79 70 65 73 20 2a 2f |/* Proto|types */|
|00000140| 0d 76 6f 69 64 20 09 49 | 6e 69 74 54 6f 6f 6c 62 |.void .I|nitToolb|
|00000150| 6f 78 28 76 6f 69 64 29 | 3b 0d 76 6f 69 64 09 67 |ox(void)|;.void.g|
|00000160| 65 74 4f 72 69 67 46 69 | 6c 65 28 53 46 52 65 70 |etOrigFi|le(SFRep|
|00000170| 6c 79 20 2a 72 65 70 6c | 79 29 3b 0d 76 6f 69 64 |ly *repl|y);.void|
|00000180| 09 67 65 74 44 65 73 74 | 46 69 6c 65 28 53 46 52 |.getDest|File(SFR|
|00000190| 65 70 6c 79 20 2a 72 65 | 70 6c 79 2c 20 53 74 72 |eply *re|ply, Str|
|000001a0| 32 35 35 20 64 65 73 74 | 4e 61 6d 65 29 3b 0d 4f |255 dest|Name);.O|
|000001b0| 53 45 72 72 20 09 65 6e | 63 6f 64 65 46 69 6c 65 |SErr .en|codeFile|
|000001c0| 73 28 53 46 52 65 70 6c | 79 20 6f 72 69 67 46 69 |s(SFRepl|y origFi|
|000001d0| 6c 65 2c 20 53 46 52 65 | 70 6c 79 20 64 65 73 74 |le, SFRe|ply dest|
|000001e0| 46 69 6c 65 29 3b 0d 63 | 68 61 72 20 2a 20 09 50 |File);.c|har * .P|
|000001f0| 73 74 72 63 70 79 28 72 | 65 67 69 73 74 65 72 20 |strcpy(r|egister |
|00000200| 53 74 72 32 35 35 20 73 | 31 2c 20 72 65 67 69 73 |Str255 s|1, regis|
|00000210| 74 65 72 20 53 74 72 32 | 35 35 20 73 32 29 3b 0d |ter Str2|55 s2);.|
|00000220| 63 68 61 72 20 2a 20 09 | 50 73 74 72 63 61 74 28 |char * .|Pstrcat(|
|00000230| 72 65 67 69 73 74 65 72 | 20 53 74 72 32 35 35 20 |register| Str255 |
|00000240| 73 31 2c 20 72 65 67 69 | 73 74 65 72 20 53 74 72 |s1, regi|ster Str|
|00000250| 32 35 35 20 73 32 29 3b | 0d 0d 0d 6d 61 69 6e 28 |255 s2);|...main(|
|00000260| 29 0d 7b 0d 09 53 46 52 | 65 70 6c 79 09 6f 72 69 |).{..SFR|eply.ori|
|00000270| 67 46 69 6c 65 2c 20 64 | 65 73 74 46 69 6c 65 3b |gFile, d|estFile;|
|00000280| 0d 09 4f 53 45 72 72 09 | 65 72 72 3b 0d 09 53 74 |..OSErr.|err;..St|
|00000290| 72 32 35 35 09 6f 72 69 | 67 4e 61 6d 65 3b 0d 09 |r255.ori|gName;..|
|000002a0| 0d 09 49 6e 69 74 54 6f | 6f 6c 62 6f 78 28 29 3b |..InitTo|olbox();|
|000002b0| 0d 09 67 65 74 4f 72 69 | 67 46 69 6c 65 28 26 6f |..getOri|gFile(&o|
|000002c0| 72 69 67 46 69 6c 65 29 | 3b 0d 09 69 66 20 28 6f |rigFile)|;..if (o|
|000002d0| 72 69 67 46 69 6c 65 2e | 67 6f 6f 64 29 0d 09 7b |rigFile.|good)..{|
|000002e0| 0d 09 09 50 73 74 72 63 | 70 79 28 6f 72 69 67 4e |...Pstrc|py(origN|
|000002f0| 61 6d 65 2c 20 6f 72 69 | 67 46 69 6c 65 2e 66 4e |ame, ori|gFile.fN|
|00000300| 61 6d 65 29 3b 0d 09 09 | 50 73 74 72 63 61 74 28 |ame);...|Pstrcat(|
|00000310| 6f 72 69 67 4e 61 6d 65 | 2c 20 28 53 74 72 69 6e |origName|, (Strin|
|00000320| 67 50 74 72 29 22 5c 70 | 2e 75 75 22 29 3b 0d 09 |gPtr)"\p|.uu");..|
|00000330| 09 67 65 74 44 65 73 74 | 46 69 6c 65 28 26 64 65 |.getDest|File(&de|
|00000340| 73 74 46 69 6c 65 2c 20 | 6f 72 69 67 4e 61 6d 65 |stFile, |origName|
|00000350| 29 3b 0d 09 09 69 66 20 | 28 64 65 73 74 46 69 6c |);...if |(destFil|
|00000360| 65 2e 67 6f 6f 64 29 0d | 09 09 7b 0d 09 09 09 65 |e.good).|..{....e|
|00000370| 72 72 20 3d 20 65 6e 63 | 6f 64 65 46 69 6c 65 73 |rr = enc|odeFiles|
|00000380| 28 6f 72 69 67 46 69 6c | 65 2c 20 64 65 73 74 46 |(origFil|e, destF|
|00000390| 69 6c 65 29 3b 0d 09 09 | 7d 0d 09 7d 0d 7d 0d 0d |ile);...|}..}.}..|
|000003a0| 76 6f 69 64 20 49 6e 69 | 74 54 6f 6f 6c 62 6f 78 |void Ini|tToolbox|
|000003b0| 28 29 0d 7b 0d 09 49 6e | 69 74 47 72 61 66 28 26 |().{..In|itGraf(&|
|000003c0| 74 68 65 50 6f 72 74 29 | 3b 0d 09 49 6e 69 74 43 |thePort)|;..InitC|
|000003d0| 75 72 73 6f 72 28 29 3b | 0d 09 49 6e 69 74 46 6f |ursor();|..InitFo|
|000003e0| 6e 74 73 28 29 3b 0d 09 | 49 6e 69 74 57 69 6e 64 |nts();..|InitWind|
|000003f0| 6f 77 73 28 29 3b 0d 09 | 49 6e 69 74 4d 65 6e 75 |ows();..|InitMenu|
|00000400| 73 28 29 3b 0d 09 49 6e | 69 74 44 69 61 6c 6f 67 |s();..In|itDialog|
|00000410| 73 28 30 4c 29 3b 0d 09 | 54 45 49 6e 69 74 28 29 |s(0L);..|TEInit()|
|00000420| 3b 0d 09 46 6c 75 73 68 | 45 76 65 6e 74 73 28 2d |;..Flush|Events(-|
|00000430| 31 2c 20 30 29 3b 0d 7d | 0d 0d 0d 76 6f 69 64 20 |1, 0);.}|...void |
|00000440| 67 65 74 4f 72 69 67 46 | 69 6c 65 28 53 46 52 65 |getOrigF|ile(SFRe|
|00000450| 70 6c 79 20 2a 72 65 70 | 6c 79 29 0d 7b 0d 09 50 |ply *rep|ly).{..P|
|00000460| 6f 69 6e 74 20 09 09 77 | 68 65 72 65 3b 0d 09 53 |oint ..w|here;..S|
|00000470| 46 54 79 70 65 4c 69 73 | 74 09 74 79 70 65 4c 69 |FTypeLis|t.typeLi|
|00000480| 73 74 3b 0d 09 0d 09 53 | 65 74 50 74 28 26 77 68 |st;....S|etPt(&wh|
|00000490| 65 72 65 2c 20 35 30 2c | 20 35 30 29 3b 0d 09 74 |ere, 50,| 50);..t|
|000004a0| 79 70 65 4c 69 73 74 5b | 30 5d 20 3d 20 27 54 45 |ypeList[|0] = 'TE|
|000004b0| 58 54 27 3b 0d 09 53 46 | 47 65 74 46 69 6c 65 28 |XT';..SF|GetFile(|
|000004c0| 77 68 65 72 65 2c 20 28 | 53 74 72 69 6e 67 50 74 |where, (|StringPt|
|000004d0| 72 29 22 5c 70 22 2c 20 | 28 50 72 6f 63 50 74 72 |r)"\p", |(ProcPtr|
|000004e0| 29 30 4c 2c 20 31 2c 20 | 74 79 70 65 4c 69 73 74 |)0L, 1, |typeList|
|000004f0| 2c 20 28 50 72 6f 63 50 | 74 72 29 30 4c 2c 20 72 |, (ProcP|tr)0L, r|
|00000500| 65 70 6c 79 29 3b 0d 7d | 0d 0d 76 6f 69 64 20 67 |eply);.}|..void g|
|00000510| 65 74 44 65 73 74 46 69 | 6c 65 28 53 46 52 65 70 |etDestFi|le(SFRep|
|00000520| 6c 79 20 2a 72 65 70 6c | 79 2c 20 53 74 72 32 35 |ly *repl|y, Str25|
|00000530| 35 20 64 65 73 74 4e 61 | 6d 65 29 0d 7b 0d 09 50 |5 destNa|me).{..P|
|00000540| 6f 69 6e 74 20 09 09 77 | 68 65 72 65 3b 0d 09 0d |oint ..w|here;...|
|00000550| 09 53 65 74 50 74 28 26 | 77 68 65 72 65 2c 20 35 |.SetPt(&|where, 5|
|00000560| 30 2c 20 35 30 29 3b 0d | 09 53 46 50 75 74 46 69 |0, 50);.|.SFPutFi|
|00000570| 6c 65 28 77 68 65 72 65 | 2c 20 28 53 74 72 69 6e |le(where|, (Strin|
|00000580| 67 50 74 72 29 22 5c 70 | 4e 61 6d 65 20 74 68 65 |gPtr)"\p|Name the|
|00000590| 20 65 6e 63 6f 64 65 64 | 20 66 69 6c 65 22 2c 20 | encoded| file", |
|000005a0| 64 65 73 74 4e 61 6d 65 | 2c 20 30 4c 2c 20 72 65 |destName|, 0L, re|
|000005b0| 70 6c 79 29 3b 0d 7d 0d | 0d 4f 53 45 72 72 20 65 |ply);.}.|.OSErr e|
|000005c0| 6e 63 6f 64 65 46 69 6c | 65 73 28 53 46 52 65 70 |ncodeFil|es(SFRep|
|000005d0| 6c 79 20 6f 72 69 67 46 | 69 6c 65 2c 20 53 46 52 |ly origF|ile, SFR|
|000005e0| 65 70 6c 79 20 64 65 73 | 74 46 69 6c 65 29 0d 7b |eply des|tFile).{|
|000005f0| 0d 09 48 61 6e 64 6c 65 | 09 65 6e 67 69 6e 65 48 |..Handle|.engineH|
|00000600| 64 6c 2c 20 74 61 62 6c | 65 48 64 6c 3b 0d 09 4f |dl, tabl|eHdl;..O|
|00000610| 53 45 72 72 09 65 72 72 | 2c 20 65 72 72 31 3b 0d |SErr.err|, err1;.|
|00000620| 09 69 6e 74 09 09 6f 72 | 69 67 52 65 66 4e 75 6d |.int..or|igRefNum|
|00000630| 2c 20 64 65 73 74 52 65 | 66 4e 75 6d 3b 0d 09 69 |, destRe|fNum;..i|
|00000640| 6e 74 09 09 6e 75 6d 62 | 75 66 72 73 20 3d 20 31 |nt..numb|ufrs = 1|
|00000650| 30 30 3b 0d 09 53 74 72 | 32 35 35 09 68 65 61 64 |00;..Str|255.head|
|00000660| 65 72 3b 0d 09 6c 6f 6e | 67 09 63 6f 75 6e 74 3b |er;..lon|g.count;|
|00000670| 0d 09 0d 09 65 72 72 20 | 3d 20 46 53 4f 70 65 6e |....err |= FSOpen|
|00000680| 28 6f 72 69 67 46 69 6c | 65 2e 66 4e 61 6d 65 2c |(origFil|e.fName,|
|00000690| 20 6f 72 69 67 46 69 6c | 65 2e 76 52 65 66 4e 75 | origFil|e.vRefNu|
|000006a0| 6d 2c 20 26 6f 72 69 67 | 52 65 66 4e 75 6d 29 3b |m, &orig|RefNum);|
|000006b0| 0d 09 69 66 20 28 65 72 | 72 20 3d 3d 20 6e 6f 45 |..if (er|r == noE|
|000006c0| 72 72 29 0d 09 7b 0d 09 | 09 65 72 72 20 3d 20 43 |rr)..{..|.err = C|
|000006d0| 72 65 61 74 65 28 64 65 | 73 74 46 69 6c 65 2e 66 |reate(de|stFile.f|
|000006e0| 4e 61 6d 65 2c 20 64 65 | 73 74 46 69 6c 65 2e 76 |Name, de|stFile.v|
|000006f0| 52 65 66 4e 75 6d 2c 20 | 27 4d 50 53 20 27 2c 20 |RefNum, |'MPS ', |
|00000700| 27 54 45 58 54 27 29 3b | 0d 09 09 69 66 20 28 65 |'TEXT');|...if (e|
|00000710| 72 72 20 3d 3d 20 6e 6f | 45 72 72 29 0d 09 09 7b |rr == no|Err)...{|
|00000720| 0d 09 09 09 65 72 72 20 | 3d 20 46 53 4f 70 65 6e |....err |= FSOpen|
|00000730| 28 64 65 73 74 46 69 6c | 65 2e 66 4e 61 6d 65 2c |(destFil|e.fName,|
|00000740| 20 64 65 73 74 46 69 6c | 65 2e 76 52 65 66 4e 75 | destFil|e.vRefNu|
|00000750| 6d 2c 20 26 64 65 73 74 | 52 65 66 4e 75 6d 29 3b |m, &dest|RefNum);|
|00000760| 0d 09 09 09 50 73 74 72 | 63 70 79 28 68 65 61 64 |....Pstr|cpy(head|
|00000770| 65 72 2c 20 28 53 74 72 | 69 6e 67 50 74 72 29 22 |er, (Str|ingPtr)"|
|00000780| 5c 70 62 65 67 69 6e 20 | 30 37 35 35 20 22 29 3b |\pbegin |0755 ");|
|00000790| 0d 09 09 09 50 73 74 72 | 63 61 74 28 68 65 61 64 |....Pstr|cat(head|
|000007a0| 65 72 2c 20 6f 72 69 67 | 46 69 6c 65 2e 66 4e 61 |er, orig|File.fNa|
|000007b0| 6d 65 29 3b 0d 09 09 09 | 50 73 74 72 63 61 74 28 |me);....|Pstrcat(|
|000007c0| 68 65 61 64 65 72 2c 20 | 28 53 74 72 69 6e 67 50 |header, |(StringP|
|000007d0| 74 72 29 22 5c 70 5c 72 | 22 29 3b 0d 09 09 09 63 |tr)"\p\r|");....c|
|000007e0| 6f 75 6e 74 20 3d 20 28 | 6c 6f 6e 67 29 68 65 61 |ount = (|long)hea|
|000007f0| 64 65 72 5b 30 5d 3b 0d | 09 09 09 65 72 72 20 3d |der[0];.|...err =|
|00000800| 20 46 53 57 72 69 74 65 | 28 64 65 73 74 52 65 66 | FSWrite|(destRef|
|00000810| 4e 75 6d 2c 20 26 63 6f | 75 6e 74 2c 20 26 68 65 |Num, &co|unt, &he|
|00000820| 61 64 65 72 5b 31 5d 29 | 3b 0d 09 09 09 0d 09 09 |ader[1])|;.......|
|00000830| 09 55 55 4c 6f 61 64 28 | 26 74 61 62 6c 65 48 64 |.UULoad(|&tableHd|
|00000840| 6c 2c 20 26 65 6e 67 69 | 6e 65 48 64 6c 29 3b 0d |l, &engi|neHdl);.|
|00000850| 09 09 09 65 72 72 20 3d | 20 75 75 65 6e 63 6f 64 |...err =| uuencod|
|00000860| 65 28 6f 72 69 67 52 65 | 66 4e 75 6d 2c 20 64 65 |e(origRe|fNum, de|
|00000870| 73 74 52 65 66 4e 75 6d | 2c 20 6e 75 6d 62 75 66 |stRefNum|, numbuf|
|00000880| 72 73 2c 20 30 4c 2c 20 | 2a 74 61 62 6c 65 48 64 |rs, 0L, |*tableHd|
|00000890| 6c 2c 20 2a 65 6e 67 69 | 6e 65 48 64 6c 29 3b 0d |l, *engi|neHdl);.|
|000008a0| 09 09 09 55 55 6e 6c 6f | 61 64 28 74 61 62 6c 65 |...UUnlo|ad(table|
|000008b0| 48 64 6c 2c 20 65 6e 67 | 69 6e 65 48 64 6c 29 3b |Hdl, eng|ineHdl);|
|000008c0| 0d 09 09 09 0d 09 09 09 | 50 73 74 72 63 70 79 28 |........|Pstrcpy(|
|000008d0| 68 65 61 64 65 72 2c 20 | 28 53 74 72 69 6e 67 50 |header, |(StringP|
|000008e0| 74 72 29 22 5c 70 65 6e | 64 5c 72 22 29 3b 0d 09 |tr)"\pen|d\r");..|
|000008f0| 09 09 63 6f 75 6e 74 20 | 3d 20 28 6c 6f 6e 67 29 |..count |= (long)|
|00000900| 68 65 61 64 65 72 5b 30 | 5d 3b 0d 09 09 09 65 72 |header[0|];....er|
|00000910| 72 20 3d 20 46 53 57 72 | 69 74 65 28 64 65 73 74 |r = FSWr|ite(dest|
|00000920| 52 65 66 4e 75 6d 2c 20 | 26 63 6f 75 6e 74 2c 20 |RefNum, |&count, |
|00000930| 26 68 65 61 64 65 72 5b | 31 5d 29 3b 0d 09 09 09 |&header[|1]);....|
|00000940| 65 72 72 31 20 3d 20 46 | 53 43 6c 6f 73 65 28 64 |err1 = F|SClose(d|
|00000950| 65 73 74 52 65 66 4e 75 | 6d 29 3b 0d 09 09 7d 0d |estRefNu|m);...}.|
|00000960| 09 09 65 72 72 31 20 3d | 20 46 53 43 6c 6f 73 65 |..err1 =| FSClose|
|00000970| 28 6f 72 69 67 52 65 66 | 4e 75 6d 29 3b 0d 09 7d |(origRef|Num);..}|
|00000980| 0d 09 72 65 74 75 72 6e | 28 65 72 72 29 3b 0d 7d |..return|(err);.}|
|00000990| 0d 0d 0d 2f 2a 20 53 6f | 6d 65 20 73 74 72 69 6e |.../* So|me strin|
|000009a0| 67 20 68 61 6e 64 6c 69 | 6e 67 20 72 6f 75 74 69 |g handli|ng routi|
|000009b0| 6e 65 73 20 2a 2f 0d 63 | 68 61 72 20 2a 20 50 73 |nes */.c|har * Ps|
|000009c0| 74 72 63 70 79 28 72 65 | 67 69 73 74 65 72 20 53 |trcpy(re|gister S|
|000009d0| 74 72 32 35 35 20 73 31 | 2c 20 72 65 67 69 73 74 |tr255 s1|, regist|
|000009e0| 65 72 20 53 74 72 32 35 | 35 20 73 32 29 0d 7b 0d |er Str25|5 s2).{.|
|000009f0| 09 72 65 67 69 73 74 65 | 72 20 75 6e 73 69 67 6e |.registe|r unsign|
|00000a00| 65 64 20 69 6e 74 09 69 | 3b 0d 09 75 6e 73 69 67 |ed int.i|;..unsig|
|00000a10| 6e 65 64 20 69 6e 74 09 | 09 09 6c 20 3d 20 73 32 |ned int.|..l = s2|
|00000a20| 5b 30 5d 3b 0d 09 63 68 | 61 72 09 09 09 09 09 2a |[0];..ch|ar.....*|
|00000a30| 73 20 3d 20 28 63 68 61 | 72 20 2a 29 20 73 31 3b |s = (cha|r *) s1;|
|00000a40| 0d 09 0d 09 66 6f 72 28 | 20 69 20 3d 20 30 3b 20 |....for(| i = 0; |
|00000a50| 69 20 3c 3d 20 6c 3b 20 | 69 2b 2b 20 29 20 7b 0d |i <= l; |i++ ) {.|
|00000a60| 09 09 2a 73 31 2b 2b 20 | 3d 20 2a 73 32 2b 2b 3b |..*s1++ |= *s2++;|
|00000a70| 0d 09 7d 0d 09 0d 09 72 | 65 74 75 72 6e 28 20 73 |..}....r|eturn( s|
|00000a80| 20 29 3b 0d 7d 0d 63 68 | 61 72 20 2a 20 50 73 74 | );.}.ch|ar * Pst|
|00000a90| 72 63 61 74 28 72 65 67 | 69 73 74 65 72 20 53 74 |rcat(reg|ister St|
|00000aa0| 72 32 35 35 20 73 31 2c | 20 72 65 67 69 73 74 65 |r255 s1,| registe|
|00000ab0| 72 20 53 74 72 32 35 35 | 20 73 32 29 0d 7b 0d 09 |r Str255| s2).{..|
|00000ac0| 72 65 67 69 73 74 65 72 | 20 75 6e 73 69 67 6e 65 |register| unsigne|
|00000ad0| 64 20 69 6e 74 09 69 3b | 0d 09 75 6e 73 69 67 6e |d int.i;|..unsign|
|00000ae0| 65 64 20 69 6e 74 09 09 | 09 6c 20 3d 20 73 32 5b |ed int..|.l = s2[|
|00000af0| 30 5d 3b 0d 09 63 68 61 | 72 09 09 09 09 09 2a 73 |0];..cha|r.....*s|
|00000b00| 20 3d 20 28 63 68 61 72 | 20 2a 29 20 73 31 3b 0d | = (char| *) s1;.|
|00000b10| 09 0d 09 73 31 20 3d 20 | 26 73 31 5b 73 31 5b 30 |...s1 = |&s1[s1[0|
|00000b20| 5d 5d 3b 0d 09 66 6f 72 | 28 20 69 20 3d 20 31 3b |]];..for|( i = 1;|
|00000b30| 20 69 20 3c 3d 20 6c 3b | 20 69 2b 2b 20 29 20 7b | i <= l;| i++ ) {|
|00000b40| 0d 09 09 2a 2b 2b 73 31 | 20 3d 20 2a 2b 2b 73 32 |...*++s1| = *++s2|
|00000b50| 3b 0d 09 7d 0d 09 73 5b | 30 5d 20 2b 3d 20 2d 2d |;..}..s[|0] += --|
|00000b60| 69 3b 0d 09 0d 09 72 65 | 74 75 72 6e 28 20 73 20 |i;....re|turn( s |
|00000b70| 29 3b 0d 7d 00 00 00 00 | 00 00 00 00 00 00 00 00 |);.}....|........|
|00000b80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000b90| 00 16 a2 07 66 1a 21 68 | 00 5a 00 30 21 7c 45 52 |....f.!h|.Z.0!|ER|
|00000ba0| 49 4b 00 1c 70 01 a2 60 | 66 06 33 68 00 16 00 0e |IK..p..`|f.3h....|
|00000bb0| 08 65 6e 63 6f 64 65 2e | 63 00 02 00 00 00 54 45 |.encode.|c.....TE|
|00000bc0| 58 54 4b 41 48 4c 01 00 | 00 00 00 80 00 00 00 00 |XTKAHL..|........|
|00000bd0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 00 00 80 |..TEXTKA|HL......|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 a4 6d b8 b4 00 00 | 0a f4 00 00 01 5c 00 0a |...m....|.....\..|
|00000c00| b0 6e 00 08 6f 06 48 7a | 00 14 ab ff 20 1f 4e 5e |.n..o.Hz|.... .N^|
|00000c10| 2e 9f 4e 75 53 54 52 52 | 47 43 48 4b 18 53 74 72 |..NuSTRR|GCHK.Str|
|00000c20| 69 6e 67 20 52 61 6e 67 | 65 20 43 68 65 63 6b 20 |ing Rang|e Check |
|00000c30| 41 62 6f 72 74 00 00 00 | 09 2e 60 14 04 3f 3f 3f |Abort...|..`..???|
|00000c40| 3f 00 00 00 04 3f 3f 3f | 3f 00 00 00 02 3f 3f 00 |?....???|?....??.|
|00000c50| 4e fa 06 98 4e 56 ff f4 | 48 e7 07 00 3a 2e 00 08 |N...NV..|H...:...|
|00000c60| 4a 45 6f 3a 70 01 b0 45 | 66 06 7e 06 7c 2e 60 0c |JEo:p..E|f.~.|.`.|
|00000c70| 30 05 c1 fc 00 1b 3e 00 | 5c 47 7c 17 3d 47 ff f4 |0.....>.|\G|.=G..|
|00000c80| 00 00 00 04 00 06 00 04 | 00 00 00 0a 00 09 07 43 |........|.......C|
|00000c90| 68 69 63 61 67 6f 00 00 | 01 00 00 00 01 16 00 00 |hicago..|........|
|00000ca0| 00 16 00 00 00 46 00 36 | 26 f4 06 fc 00 00 00 1c |.....F.6|&.......|
|00000cb0| 00 46 00 01 45 54 41 42 | 00 00 00 12 45 46 4e 54 |.F..ETAB|....EFNT|
|00000cc0| 00 00 00 1e 03 ec ff ff | 00 00 00 00 00 36 26 3c |........|.....6&<|
|00000cd0| 03 eb ff ff 00 00 00 08 | 00 36 26 34 00 00 00 00 |........|.6&4....|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+